home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_B.d64 / show.src <a> (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  636b  |  50 lines
  1. 5 letw=peek(1001)
  2. 6 lett=peek(1002)
  3. 10 poke53265,11
  4. 15 poke53272,25
  5. 18 poke53270,216
  6. 20 leta=peek(34576)
  7. 30 poke53281,a
  8. 40 leti=8192
  9. 50 pokei,0
  10. 60 leti=i+1
  11. 70 ifi<16192then50
  12. 80 poke53265,59
  13. 200 leti=0
  14. 210 letv=i+1024
  15. 220 letc=i+55296
  16. 230 letp=i+32576
  17. 240 letq=i+33576
  18. 350 letp=peek(p)
  19. 360 letq=peek(q)
  20. 370 pokev,p
  21. 380 pokec,q
  22. 390 leti=i+1
  23. 400 ifi<1000then210
  24. 500 leti=0
  25. 510 letk=peek(1000)
  26. 520 leth=8192+i
  27. 530 letm=24576+i
  28. 540 letm=peek(m)
  29. 550 pokeh,m
  30. 552 ift=1then560
  31. 554 lets=0
  32. 555 lets=s+1
  33. 556 ifs<wthen555
  34. 560 leti=i+k
  35. 570 ifi>8191then2000
  36. 580 letq=q+1
  37. 590 ifq<8400then520
  38. 800 goto4000
  39. 810 rem************************
  40. 2000 leti=i-8191
  41. 2010 goto580
  42. 4000 leti=0
  43. 4010 leth=i+8192
  44. 4020 letm=i+24576
  45. 4030 letm=peek(m)
  46. 4040 pokeh,m
  47. 4050 leti=i+1
  48. 4060 ifi<8000then4010
  49. 4100 stop
  50.